home *** CD-ROM | disk | FTP | other *** search
/ Max Calendar 2002 / Max Calendar 2002.iso / pc / Data_2 / intro_2.dxr / 00001_controllo filmato zoommato.ls next >
Encoding:
Text File  |  2001-10-17  |  1.1 KB  |  43 lines
  1. on exitFrame me
  2.   ImpostaCursori()
  3.   channel = rollover()
  4.   repeat with canale = 17 to 23
  5.     if channel = canale then
  6.       if the puppet of sprite canale = 0 then
  7.         puppetSprite(canale, 1)
  8.         Temp = the number of member (the name of member the memberNum of sprite canale & "_ACC")
  9.         if Temp > 0 then
  10.           set the memberNum of sprite canale to Temp
  11.         end if
  12.       end if
  13.       next repeat
  14.     end if
  15.     puppetSprite(canale, 0)
  16.   end repeat
  17.   repeat with canale = 26 to 28
  18.     if channel = canale then
  19.       if the puppet of sprite canale = 0 then
  20.         puppetSprite(canale, 1)
  21.         Temp = the number of member (the name of member the memberNum of sprite canale & "_ACC")
  22.         if Temp > 0 then
  23.           set the memberNum of sprite canale to Temp
  24.         end if
  25.       end if
  26.       next repeat
  27.     end if
  28.     puppetSprite(canale, 0)
  29.   end repeat
  30.   if sprite(16).movieTime = sprite(16).duration then
  31.     sprite(16).width = 5
  32.     sprite(16).height = 5
  33.     sprite(16).locV = 288
  34.     sprite(16).locH = 443
  35.     sprite(16).width = 352
  36.     sprite(16).height = 288
  37.     updateStage()
  38.     play done
  39.   else
  40.     go(the frame)
  41.   end if
  42. end
  43.